home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_c / cuj0696.zip / DWYER.ZIP / FREQ.TST / UNMEANSD.AWK < prev   
Text File  |  1994-07-09  |  387b  |  19 lines
  1. # ------------
  2. # unmeansd.awk
  3. # ------------
  4. BEGIN\
  5. {
  6.     for (i = 1.; i <= 32767.; ++i)
  7.     {
  8.         SoS += i * i;
  9.     }
  10.  
  11.     Mean = ((32767.) / 2.);
  12.  
  13.     StdDev = sqrt(SoS / 32768. - Mean * Mean);
  14.  
  15.     printf("Sum of Squares in (0,32767) = %f\n", SoS);
  16.     printf("Mean of Sum in (0,32767)    = %f\n", Mean);
  17.     printf("Standard Deviation          = %f\n", StdDev);
  18. }
  19.